home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / thpb.Dxr / 00087.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  569 b   |  22 lines
  1. on mouseUp
  2.   global captain
  3.   if not captain then
  4.     set captain to 1
  5.     set the castNum of sprite the clickOn to the number of cast "chest"
  6.     set the locV of sprite 33 to 27
  7.     set the locV of sprite 34 to ((8 - the soundLevel) * 14) + 49
  8.     puppetTransition(23)
  9.     updateStage()
  10.     pause()
  11.   else
  12.     set captain to 0
  13.     set the castNum of sprite the clickOn to the number of cast "captain"
  14.     set the locV of sprite 33 to 527
  15.     set the locV of sprite 34 to 527
  16.     puppetSound(0)
  17.     puppetTransition(23)
  18.     updateStage()
  19.     go(marker(0))
  20.   end if
  21. end
  22.